home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Utilities / ViewIt Shareware / ViewIt™ 2.04 Shareware / Projects / Pascal Demos / FaceStorLP.pas < prev    next >
Pascal/Delphi Source File  |  1992-07-30  |  6KB  |  306 lines
  1. {FaceWare 2.03 Constants & Shared Record}
  2. {©FaceWare 1989-92.  All Rights Reserved.}
  3.  
  4. unit FaceStorLP;
  5.  
  6. interface
  7.  
  8.     const
  9. {FaceIt commands}
  10.         DoLoop = 0;
  11.         DoEvnt = -51;
  12.         DoMenu = -52;
  13.         DoUpdt2 = -53;
  14.         DoAuto2 = -54;
  15.         GetMsg = -55;
  16.         GetFWs = 157;
  17. {DialIt commands}
  18.         NewDlg = 1131;
  19.         OpnDlg = 1132;
  20.         EndDlg = 1133;
  21.         SetDlg = 1134;
  22.         GetDlg = 1135;
  23.         ShoDlg = 1136;
  24.         ChkDlg = 1137;
  25.         ExtDlg = 1138;
  26.         DrwDlg = 1139;
  27.         WinTxt = 1147;
  28.         WinFnt = 1148;
  29.         WinCol = 1149;
  30. {UtilIt commands}
  31.         DoInit = -61;
  32.         DoPrep = -62;
  33.         DoUnld = -63;
  34.         ChgCur = 121;
  35.         PstEvt = 122;
  36.         PopMen = 123;
  37.         PstNot = 124;
  38.         SetIdl = 131;
  39.         EndIdl = 132;
  40.         ShoAlt = 153;
  41.         StpAlt = 154;
  42.         NotAlt = 155;
  43.         CtnAlt = 156;
  44.         SetItm1 = 160;
  45.         SetItm2 = 161;
  46.         GetItm = 162;
  47.         FixFSC = 163;
  48.         SelFSC = 164;
  49.         ChkMem = 171;
  50.         NewBlk = 172;
  51.         PrgCmd = 173;
  52.         GetFgC = 178;
  53.         GetBkC = 179;
  54.         SetFgC = 180;
  55.         SetBkC = 181;
  56.         SetFSS = 183;
  57.         SetPal2 = 185;
  58.         StdOpn = 201;
  59.         StdSav = 202;
  60.         GetRef = 205;
  61.         SetRef = 206;
  62.         SetTyp = 208;
  63.         SndBhd = 250;
  64.         GetNam = 251;
  65.         SetNam = 252;
  66.         MovRec = 254;
  67.         MovAlt = 255;
  68.         MovDlg = 256;
  69.         MovWin = 257;
  70.         DrgWnd = 259;
  71.         ShoStr = 261;
  72.         StpStr = 262;
  73.         NotStr = 263;
  74.         CtnStr = 264;
  75.         GetStd = 301;
  76.         SetStd = 302;
  77.         SavDlg = 356;
  78.         SavWin = 357;
  79.         GetI2 = 422;
  80.         GetI4 = 423;
  81.         GetR4 = 425;
  82.         GetR8 = 426;
  83.         GetR10 = 427;
  84.         GetR12 = 428;
  85.         SetI2 = 432;
  86.         SetI4 = 433;
  87.         SetR4 = 435;
  88.         SetR8 = 436;
  89.         SetR10 = 437;
  90.         SetR12 = 438;
  91.         SetSub = 451;
  92.         TrmStr = 452;
  93.         SetPrm = 453;
  94.         CnvStr = 454;
  95.         FndTxt = 455;
  96.         NumToS = 471;
  97.         SToNum = 481;
  98.         GetStr = 491;
  99.         SetStr = 492;
  100.         SrtLst = 493;
  101.         DupLst = 494;
  102. {ViewIt Commands}
  103.         AddVew = -1200;
  104.         NewWnd = -1201;
  105.         EndWnd = -1202;
  106.         MdlWnd = -1203;
  107.         SizWnd = -1204;
  108.         MovWnd = -1205;
  109.         ShoWnd = -1206;
  110.         HidWnd = -1207;
  111.         GetWVC = -1208;
  112.         GetWnd = -1209;
  113.         LnkCtl = -1210;
  114.         GetCtl = -1211;
  115.         ShoCtl = -1212;
  116.         GetVal = -1213;
  117.         SetVal = -1214;
  118.         OvrCtl = -1215;
  119.         AddCtl = -1216;
  120.         DrwCtl = -1217;
  121.         ScrCtl = -1218;
  122.         ActCtl = -1219;
  123.         SelCtl = -1220;
  124.         DspCtl = -1221;
  125.         StlCtl = -1222;
  126.         SavCtl = -1223;
  127.         SavWnd = -1224;
  128.         HlpWnd = -1229;
  129.  
  130.     type
  131. {Global FaceWare record}
  132.         FacePtr = ^FaceRec;
  133.         FaceRec = record
  134.                 fHead: array[1..8] of integer;
  135.                 fOffPort: GrafPtr;
  136.                 fCOffPort: GrafPtr;
  137.                 fActiveWnd: WindowPtr;
  138.                 fActiveRec: longint;
  139.                 fActiveID: integer;
  140.                 fActiveResID: integer;
  141.                 fMsgCount: integer;
  142.                 fFlags: longint;
  143.                 fStuff: Ptr;
  144.                 fHeapBuff: longint;
  145.                 fEnvFlags: longint;
  146.                 fSleep: longint;
  147.                 fScreenRect: Rect;
  148.                 fDragRect: Rect;
  149.                 fFrontSleep: longint;
  150.                 fBackSleep: longint;
  151.                 fFiller1: integer;
  152.                 fStdBlock: Handle;
  153.                 fStdCount: integer;
  154.                 fSysEnvArr: array[1..8] of integer;
  155.                 fApplVRef: integer;
  156.                 fCreator: OSType;
  157.                 fRefCon: longint;
  158.                 fFiller2: array[1..7] of integer;
  159.                 fCursor: integer;
  160.                 fFontMenu: MenuHandle;
  161.                 fSizeMenu: MenuHandle;
  162.                 fStyleMenu: MenuHandle;
  163.                 fColorMenu: MenuHandle;
  164.                 fFiller3: signedbyte;
  165.                 fI1Err: signedbyte;
  166.                 fI2Err: integer;
  167.                 fI4Err: longint;
  168.                 fI8Err: computational;
  169.                 fR4Err: real;
  170.                 fR8Err: double;
  171.                 fR10Err: array[1..5] of integer;
  172.                 fR12Err: array[1..6] of integer;
  173.                 fFiller4: array[1..125] of integer;
  174.                 fWDEF: longint;
  175.                 fGlueData: longint;
  176.                 fWaitNextEvent: longint;
  177.                 fNewWindow: longint;
  178.                 fNewCWindow: longint;
  179.                 fGetNewWindow: longint;
  180.                 fGetNewCWindow: longint;
  181.                 fGetNewDialog: longint;
  182.                 fDisposeWindow: longint;
  183.                 fDisposDialog: longint;
  184.                 fActiveWindow: longint;
  185.                 fSelectWindow: longint;
  186.                 fUpdateOther: longint;
  187.                 fFiller5: array[1..9] of ProcPtr;
  188.                 fEvent: EventRecord;
  189. {DialIt subrecord}
  190.                 dHead: array[1..8] of integer;
  191.                 dlogptr: DialogPtr;
  192.                 dataptr: Ptr;
  193.                 dFlags: longint;
  194.                 dBaseID: integer;
  195.                 dPopID: integer;
  196.                 listID: array[1..20] of integer;
  197.                 slope: array[1..20] of real;
  198.                 intercept: array[1..20] of real;
  199.                 dialog: array[1..99] of integer;
  200.                 dHit: integer;
  201.                 dClick: integer;
  202.                 dEvent: EventRecord;
  203. {UtilIt subrecord}
  204.                 uHead: array[1..8] of integer;
  205.                 uI2: integer;
  206.                 uI4: longint;
  207.                 uR4: real;
  208.                 uR8: double;
  209.                 uR10: array[1..5] of integer;
  210.                 uR12: array[1..6] of integer;
  211.                 uPt: Point;
  212.                 uRect: Rect;
  213.                 uCommand: longint;
  214.                 uParam: array[1..4] of longint;
  215.                 uResult: longint;
  216.                 uMenuID: longint;
  217.                 uMenuItem: longint;
  218.                 uString: Str255;
  219.                 uName: Str255;
  220.                 uRGB: RGBColor;
  221.                 uStyle: style;
  222.                 uI1: signedbyte;
  223.                 uI8: computational;
  224.                 uMenuHdl: MenuHandle;
  225. {ViewIt subrecord}
  226.                 vHead: array[1..8] of integer;
  227.                 vErr: integer;
  228.                 vCDEF: ProcPtr;
  229.                 vSelectCtl: ControlHandle;
  230.                 vSelectRec: longint;
  231.                 vSelectID: integer;
  232. {info returned by enabled items}
  233.                 wiHit: integer;
  234.                 wvHit: integer;
  235.                 wcHit: integer;
  236.                 wClick: integer;
  237.                 wEvent: EventRecord;
  238. {window info returned by GetWnd}
  239.                 wWindow: WindowPtr;
  240.                 wResID: integer;
  241.                 wCount: integer;
  242.                 wvCount: integer;
  243.                 wiCount: integer;
  244. {control info returned by GetCtl}
  245.                 cControl: ControlHandle;
  246.                 ciIndex: integer;
  247.                 cvIndex: integer;
  248.                 ccIndex: integer;
  249.                 cBaseID: integer;
  250. {info copied from "cControl" block...}
  251.                 cNext: ControlHandle;
  252.                 cOwner: WindowPtr;
  253.                 cRect: Rect;
  254.                 cVis: signedByte;
  255.                 cHilite: signedByte;
  256.                 cValue: integer;
  257.                 cMin: integer;
  258.                 cMax: integer;
  259.                 cInfo: Handle;
  260.                 cLoData: Handle;
  261.                 cAction: ProcPtr;
  262.                 cRefCon: longint;
  263.                 cTitle: Str255;
  264. {info copied from "cInfo" block...}
  265.                 cStuff: array[1..6] of integer;
  266.                 cTmplRefCon: longint;
  267.                 cPtr: Ptr;
  268.                 cHiData: Handle;
  269.                 cView: ControlHandle;
  270.                 cOldRect: Rect;
  271.                 cClip: Rect;
  272.                 cContent: Rect;
  273.                 cLimit: Rect;
  274.                 cType: longint;
  275.                 cVarCode: integer;
  276.                 cResType: ResType;
  277.                 cResID: integer;
  278.                 cResHdl: Handle;
  279.                 cPrivate: longint;
  280.                 cFiller: signedByte;
  281.                 cCmdKey: signedByte;
  282.                 cPnRound: integer;
  283.                 cPnSize: Point;
  284.                 cTxJust: signedByte;
  285.                 cTxFace: Style;
  286.                 cTxSize: integer;
  287.                 cTxFont: integer;
  288.                 cDataType: integer;
  289.                 cDataDigits: signedByte;
  290.                 cDataFormat: signedByte;
  291.                 cDataOffset: integer;
  292.                 cDataPtr: Ptr;
  293.                 cStorType: integer;
  294.                 cStorPtr: longint;
  295.                 cColors: CCTabHandle;
  296.                 cOverride: ProcPtr;
  297.                 cCount: integer;
  298.                 cString: Str255;
  299. {Local FCMD record & proc address table}
  300.                 xEntries: integer;
  301.                 xTable: array[1..40] of longint;
  302.             end;
  303.  
  304. implementation
  305.  
  306. end.